home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / Script Tools / Examples / Choose Several Files Example < prev    next >
Text File  |  1993-06-17  |  418b  |  18 lines
  1. property fileList : {}
  2.  
  3. set filesOK to true
  4. try
  5.     set fileList to ¬
  6.         choose several files with prompt "Please select files to be archived:" ¬
  7.             of type {"APPL", "TEXT", "PICT"} ¬
  8.             starting with fileList
  9. on error errText number errNum
  10.     display dialog "Choose several files canceled (error: " & errText & ")" ¬
  11.         buttons {"OK"} ¬
  12.         default button {"OK"}
  13.     set filesOK to false
  14. end try
  15.  
  16. if filesOK then
  17.     fileList
  18. end if